home *** CD-ROM | disk | FTP | other *** search
/ The Mac 13 / the-mac-13.iso / On The Rom / 100 Best Mac CD-ROMs Selection / The Treasure Hunt / thpb.Dxr / 00037.ls < prev    next >
Encoding:
Text File  |  1994-09-16  |  211 b   |  11 lines
  1. on mouseUp
  2.   global colours
  3.   set colours to intarray(mnew)
  4.   repeat with l = 21 to 25
  5.     set t to the foreColor of sprite l
  6.     puppetSprite(l, 0)
  7.     colours(mput, l - 20, t)
  8.   end repeat
  9.   go("RUNanim")
  10. end
  11.